perm filename FRIC4[X,ALS] blob
sn#068800 filedate 1973-10-29 generic text, type T, neo UTF8
00010 M←0;
00020 FOR J←0 STEP 1 UNTIL 127 DO BEGIN
00030 VAL←ILDB(POINTX); IF VAL>2047 THEN VAL←VAL-4096;
00040 DVAL←VAL-K; DDVAL←DVAL-DK; DDDVAL←DDVAL-DDK;
00050 IF STATE=0 THEN BEGIN
00060 IF DDDVAL<DDDK-DELTA THEN BEGIN
00070 M←M+(DDDK-DDDVAL); STATE←-1; END; END ELSE
00080 IF DDDVAL>DDDK+DELTA THEN BEGIN
00090 M←M+(DDDVAL-DDDK); STATE←0; END;
00100 K←VAL; DK←DVAL;DDK←DDVAL; DDDK←DDDVAL;
00110 END;
00120 M←M%400; IF M>63 THEN M←63;